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NODULE DATECN ( LANGUAGE, ( BLISS32 ) , 
= *V0G= 
rt 


BEGIN 


. 
SRO RAR AA AAA AAAAAEAEERERAAAA AREER E AEA AEAAAAAERAAEEAEERERAREREEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ee 
* 
a 
‘ ® 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corer * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!® INCLUSION OF THE ABOVE Syed hd NOTICE. THIS SOF TWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
H ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Hd CORPORATION. * 

*® 

® 

® 

& 

® 

® 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


VR R RRR RRAAAAAAERA AAA AEE EAE E EEE AAA 


'e4 
' 


FACILITY: MTAACP 

i ABSTRACT 
CONVDATE -R2J converts dates from DD-MMM-YY format to Sb alae 
CONVDATE_J2R converts dates from (blank) YYDDD to DD-MMM-YY 

i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: D. H. GILLESPIE, CREATION DATE: 31-MAY-77 9:00 
i MODIFIED BY: 
v02-005 pevegess nse" Michael Walp 30-Nov-1981 
d problem of 366 days in a none leap year when converting 
Aes Julian to VMS 


v02-004 pmw00039 David Michael Walp 2-0ct-1981 
Handle Julian Date vA 00000" and. Regular Dates less than 1900 
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$ep-1984 02:15: X-11 Bliss-32 V4.0-74 
16- sen-1984 95:13:99 Yt AACP SRE IDATELN 3004 
V02-003 REFORMAT Maria del C. Nasr 30-Jun-1980 
A0002 oe Maria del C. Nasr 15-Feb-1980 3:20 


01 
Check fer date out of range when converting to either Julian 
format or regular date 


Ea 
* 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
REQUIRE "SRCS:MTADEF .B32'; 


FORWARD ROUTIN 
CONVDATE Res. 
CONVDATE_J2R 


EXTERNAL ROUTINE 
LIBSCVT_DTB : ADDRESSING_MODE ( ABSOLUTE ), ! convert decimal to binary 
FAO” : ADDRESSING_MODE ( ABSOLUTE ); ! formatted ascii output 


GLOBAL BIND 
ZERO_JDATE = UPLIT ( * 00000" ); 


! re Soyer to julian 
jan to regular 


IND 
DAYTBL = UPLIT WORD ( 0,31,59, 90, 120 13448 {8t, ol¢. 243,273,304,334,365 ) 


MONTBL = UPLIT BYTE ( ‘JAN FEB MAR APR MAY’ JUL AUG SEP OCT NOV DEC ' ) 
VECTOR LCHSALLOEATIONCEB) Je 


Page as 
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1B-se 1984 02:15: AX-11 Bliss-32 V4.0-74 P 
1 =308 1383 95:18:99 MTAACP, RC IDATECN.B32; shat (23 
GLOBAL ROUTINE CONVDATE_R2J ( REGDATE, ANSIJDATE ) = 
t+ 
] 


i FUNCTIONAL DESCRIPTION: 
convert from DD-MMM-YYYY to (blank) YYDDD 


CALLING SEQUENCE: 
CONVDATE_R2J ( ARG1, ARG2 ) 
INPUT PARAMETERS: 
ARG] address of input string DD-MMM-YYYY 
ARG2 address of output string (blank) YYDDD 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
output string pointed to by ARG2 
IMPLICIT OUTPUTS: 
none 
' ROUTINE VALUE: 
1 if successful 
0 systax error 


SIDE EFFECTS: 
none 


BEGIN 
CAL 

CONVOUTPUT : VECTOR (2), ! output descriptor 
MONTH, ! index into month table 
DAYS, ' number of days 
REGADR, ! char ptr to reg date string 
YEAR ' number of year 
LPYEAR; i leap year 

BIND 
BASE_YEAR = UPLIT BYTE ( ‘19° ), 
ZERO_YEAR = UPLIT BYTE ( ‘0000° ), 
CONVCONTROL = DESCRIPTOR ( * !AD!32ZL" ), 
BYEAR = YEAR : BLOCK (1); 


: setup addr pointer and convert DD to binary # of days 
iF .(.REGDATE)<0,8> EQL * ° 
THEN 


BEGIN 
REGADR = .REGDATE + 1: 
JF Nor LIBSCVT_DTB ( 1, .REGADR, DAYS ) THEN RETURN 0; 


H 6 
voue60 1exgeP=}3Be 98:13:99 AAA eOSAESpAseKns bao, (2) 


ELSE 
IF NOT LIBSCVT_DTB ( 2, .REGDATE, DAYS ) THEN RETURN 0; 


point into date to MMM 
REGADR = .REGDATE + 3; 
lookup MMM in table to discover # of days in year preceding current month 


MONTH = 0; 
WHILE 1 
dO 


PUPPIES £&* 


DONAVESWN—"ODOONAW 


BEGIN 

IF CHSEQL o* -REGADR, 3, MONTBLL.MONTH], 0 ) THEN EXITLOOP; 
MONTH ONTH + 

Fo: LMONTH GEQU 12 THEN RETURN 0; 


; convert year 


REGADR = .REGDATE + 
IF NOT LIBSCVT OTB ( (3 »REGADR, YEAR ) THEN RETURN 0; 


determine if year is leap year 


iPYEAR 
IF .BYEAR % 0, 0, 2, 0 ] EQLU O THEN LPYEAR = 1; 


decide if legal day in month 
if ( .DAYS GTRU ( .DAYTBLC.MONTH + 1] - .DAYTBLC.MONTH] )) 
NOT ( .LPYEAR AND ( .MONTH EQLU 1 ) AND ( .DAYS EQLU 29 ))) 
THEN RETURN 0; 
: calulate the days into the year 


DAYS = .DAYS + .DAYTBLC.MONTHI; 


WAWAIN 


PARAEQD|_EEDAA AAs BB BB BE EE EIN 
WO OONOU EWN O OONAUES WN SO CONOUS WN "OVOO~ 


ee ee me ee ee ee ed ed ed ed wd ed = = wd = 


LSSLSLESSRAVLSSEVEREAVASSSVSARANLSSRIFTFERTLS 


gece IF “MONTH GTRU 1 THEN DAYS B DAYS + .LPYEAR; 
a4) if the year is less than 1900, then julian date must be zero 
0568 iF CHSLSS ( 2, .REGADR, 2, BASE_YEAR ) 
569 THEN 
570 BEGIN 
571 CHSMOVE ( 4, ZERO_YEAR, .REGADR ); 
O37¢ DAYS = 0; 
27 END; 
3°? : setup output string addr and length 
378 CONVOUTPUTEO] = 6; 
378 CONVOUTPUTE1) = .ANSIJDATE; 
: 5 : setup yy char ptr 
2 2 é REGADR = .REGDATE + 9; 
05 


6 
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¢ : format output string 
§ SYSSFAO ( CONVCONTROL, 0, CONVOUTPUT, 2, »REGADR, .DAYS ); 
5 ‘ RETURN 1; 
5 9 END; ! end routine 
-TITLE DATECN 
-IDENT \V04-000\ 
-PSECT S$CODES,NOWRT,2 


00 30 30 30 30 30 20 00000 P.AAA: .ASCII \ 00000\<0><0> ; : 

0111 OOF3 00D4 0085 0097 0098 005A 0088 Gort 9080 ante P.AAB: .WORD 041314 39+, 90. 120, 151, 181, 212, 243, - : ; 
52 50 41 20 41 4D 20 42 45 46 23 4E 41 4A 00022 P.AAC: .ASCII \JAN FEB’MAR APR MAY JUN JUL AUG SEP OCT \ : : 
55 41 20 4C ¢ 4A 20 ae 4 4A 20 9 af 4D 20 $084 edicatinn : : 
20 54 43 4 20 50 45 33 20 47 00040 F : 
20 43 45 46 20 56 GF 4E 004A -ASCII \NOV DEC \ F : 

39 1 00052 P.AAD: <ASCII \19\ ; : 

30 30 30 30 00054 P.AAE: <ASCII \0000\ ; : 

4C SA 33 21 44 41 A 0 00058 P.AAG: ASCII \ !AD!3ZL\ ; : 

00000008 00060 P.AAF: <LONG 8 ; ; 

00000000" 00064 ADDRESS P.AAG ; : 

ZERO_JDATE== P.AAA : 

DAYTBL= P.AAB ; 

MONTBL= P.AAC 3 

BASE_YEAR= P. AAD ; 

ZERO” YEAR= P.AAE 3 

CONVCONTROL= P.AAF : 

.EXTRN LIBSCVT_DTB, SYSS$FAO : 

O1FC 00000 .ENTRY CONVDATE_R2J, Save R2,R3,R4,R5,R6,R7,R8 : 0470 ; 

9F 9E 00002 MOVAB aALIBSCVT_DTB, RB F ; 

AF 9 09 MOV DAYTBL, R7 ; ; 

10 ¢ 0D SUBL2 #16, § ; : 

AC D 10 MOVL REGDATE, R6 : 0521 ; 

66 91 00014 CMPB ss (RO), #32 : F 

0C 12 00017 BNEQ ; ; 

A6 9E 00019 MOVAB 1(R6), REGADR : 0524 : 

F BB 0001D PUSHR  #*M<R4,SP> : 0525 : 

1 Db PUSHL #1 : : 

6 1 BRB 2$ : : 

F 6B 1$: PUSHR #*M<R6,SP> ; 0528 3 

02 oD 9 PUSHL ; 3 

Q FB B 2$: CALLS #3, LIBSCVT_DTB : 3 

f BLEC 3=OsaR ; : 

A ; MOVAB 3(R6), REGADR : 0532 ; 

55 D CLRL NTH : 0536 : 

45 OF 3$: PUSHAL MONTBLCMONTH) : 0540 ; 

2 CMPC3. #3, (REGADR), a(SP)+ : : 

Dé 0004) Incl RONTH : 0541 

Oe OoG (MPL MONTH, #12 + §3t3 

EF 1F 6 BLSSU 3$ : : 


6 
DATECN 1b-se -1984 02:15: AX-11 Bliss-32 v4.0-74 Page 
PO4e 500 1 et %§ 13:99 MTAACP. SRC DATELN O3009 ° 
7¢ 11 00048 BRB 10$ ; : 
54 07 A6 3 4A 4$: MOVAB 7(R6), REGADR : ; 
4 AE F 0004 PUSHAB YEAR : ; 
dD PUSHL REGADR : ; 
68 3 Pp CALLS #3. LIBSCVT_DTB : ; 
6B 3 £8 5$: LBC 5° Oe : ; 
1 D4 B CLRL = LPYEAR ‘ ; 
03 04 AE D BITS YEAR, #3 ; : 
0 1 6 BNEQ 6s : ; 
1 } MOVL PYEAR : ; 
02 A743 ¢ 66 6$ MOVZWL pAVTBLY CMONTHI, RO : ; 
674 s B MOVZWL DAYTBL CHONTH, R2 : ; 
2 52 ¢ 0 oF SUBL2 ; : 
0 6— 01 000 CMPL AYS, RO ; ; 
D 18 007 BLEQU ; 
4C 1 ¢ 007 BLBC LPYEAR, 10$ : 
01 5 01 7A CMPL MONTH, #1 : 
47 12 0007D BNEQ = ; 
1D 6E 01 0007F CMPL DAYS, #29 : 
42 12 0082 BNE ; 
50 6745 3C 00084 7$: MOVZWL DAYTBLCMONTH], RO : 
6E 30 CO 00088 ADDL2 , DAYS : 
01 D1 0008B CMPL MONTH, #1 : 
08 1B O008E BLEQU 8 ; 
6E 1 ¢0 000 ADDL2 LPYEAR, DAYS : 
4A AT 64 02 29 00093 8s: CMPC3 2, CREGADR) BASE_YEAR ; 
06 1E 00098 BGEQU : 
64 4C A? DO OO09A MOVL § ZERO_YEAR, (REGADR) : 
6E D4 00095 CLRL : 
08 AE 06 DO OO0A0 9S: MOVL PUT : 
OC AE 08 AC DO O00A4 MOVL Ang SDAYES "CONVOUTPUT +4 ; 
54 09 AB 9E DO0A9 MOVAB eRe) , REGAD : 
6E DD OOOAD PUSHL DAYS F 
54 DD OOOAF PUSHL R GADR : 
02 oD 90081 PUSHL ; 
146 AE 9F 000B3 PUSHAB CONVOUTPUT : 
7E D4 0086 CLRL = = (SP) : 
58 A? OF 000B8 PUSHAB CONVCONTROL : 
000000006 9F 06 FB 000B CALLS #6, @#SYSS$FAO ; 
50 01 20 o0ce MOVL #1. RO : 
4 aDee RET 3 
50 04 G0cg 10$:  CLRL RO : 
04 000 RET : 


; Routine Size: 201 bytes, Routine Base: S$CODE$S + 0068 


kK 6 
DATECN 16-Sep-1984 02:15: AX-11 B 
904-500 12-08-1382 98:12:99 = FANRALLE 
GLOBAL ROUTINE CONVDATE_J2R ( DATEREG, DATEANSIJ ) = 


14 


' 
FUNCTIONAL DESCRIPTION: 
convert from (blank) YYDDD to DD-MMM-YYYY 


CALLING SEQUENCE: 
CONVDATE _J2R(ARG1,ARG2) 


! INPUT PARAMETERS: 
ARG] addr of gutput string DD-MMM-YYYY( 11 char ) 
ARG2 addr of input string (blank) YYODD 


IMPLICIT INPUTS: 
none 


Liss-32 V4.0-74 2 7 
SREIDATECN  B3004 age (3) 


DONO nrwNwoOsS 
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OUTPUT PARAMETERS: 
output string pointed to by ARG! 


IMPLICIT OUTPUTS: 
none 


SESRRGRASSSLESEASIS 


RIPIPIMIMIPIPIHPIPIPIPIMPIPIPINMIAINI/AI/AD/PIDPI\ IN IA|Y a i ee a dd od od 


POPOIPIPOPOPIPIPOPINONIPONIPINOPUNININUNUNIPNND 


WNW 


ROUTINE VALUE: 
f date of *' 00000" 


: setup pointer to DDD in Julian input string 
JULADR = CHSPLUS ( .DATEANSIJ, 3 ); 
! convert to binary date 


Bae Se Se Se Ge Be Se Se Ge Ge Fe Se Se Ge Ge Se Ge Se Se Se Fe Ge Se Ge Ge Ge Gs Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Seee 


0610 
0611 
pole 
061 
§ 0614 
34 0615 1 if normal date 
235 BO18 0 if an invalid date 
2 061 
$3 0618 SIDE EFFECTS: 
38 0619 none 
239 0620 
re 0621 oo 
41 06 § 
rt 06 BEGIN 
4 0624 
44 0625 LOCAL 
245 06 $ CONVOUTPUT : VECTOR (2), 
46 062 MONTH, ! index into month table /3 
47 0628 DAYS, ! # of days in month 
48 0629 YEAR, ' # of years 
49 0630 JULADR, ! addr of JULIAN char 
50 0631 LPYEAR, ! 1 if leap year 
51 ott FEB29; ' 1 if FEB 29th 
38 be8z BIND 
54 6 5 CONVCONTROL = DESCRIPTOR ( "!2Z2L=!AD-'42L" ), 
3? $ BYEAR = YEAR : BLOCK (1); 
33 Oe if ANSI Julian date is zero, return with 2 
+44 ? IF CHSEQL ( 6, .DATEANSIJ, 6, ZERO_JDATE ) THEN RETURN 2; 
61 ; 
$8 
6 644 
64 645 
65 46 
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ooo 
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Sep-1984 AX-11 Bite 32 V4.0-74 P 
iSoseo-1964 03:15:90 YAtett OL nga, ve.05749 aoe 8 
' 

IF NOT LIBSCVT_DTB ( 3, .JULADR, DAYS ) THEN RETURN 0; 

backup pointer to yy and convert to binary and add century 


JULADR = oy A eJULADR, <2 ); 
IF NOT LIBSCVT “Fi Bo. (2, .JULADR, YEAR ) THEN RETURN 0; 
YEAR = YEAR + 


! adjust Be for leap year 
; and make 366 of a non-leap year into a valid date 


LPYEAR = ( .BYEAR C 0, 0, 2, 0] EQLU 0 ); 
FEBC9 = ( :DAYS EQLU 60°) AND .LPYEAR; 
0661 IF _ .LPY aR 


PPAR AA AAA AAAA AS 
PAA SIUVIVIVIIVITE £2 
OCONAULS WI —O0O~) 


66 THEN BEGIN 

Seez Me -DAYS GTRU 59 THEN DAYS = .DAYS - 1; 

0665 ELSE IF .DAYS EQL 366 

0666 THEN 

0667 BEGIN 
0668 YEAR = .YEAR + 1; 
0669 DAYS = 1; 
bene END; 

per } know days in year and if year is leap year, now is this a legal date 
067% if ( .DAYS EQLU 0 ) OR ( .DAYS GTRU 365 ) THEN RETURN 0; 
067 ! find month 
067 ! 
0678 MONTH = 1; 
0679 WHILE 1 

680 dO 

681 BEGIN 
068 IF (¢ -DAYS LEQU -DAYTBLC. MONTH] ) THEN EXITLOOP; 
068 MONTH ONTH + 

84 IF .MONTH GEQU 13 THEN RETURN 0; 

A END: 
oe t4 H get date in month 
0689 MONTH = .MONTH - 1; 
Oest DAYS = .DAYS - .DAYTBLC.MONTH] + .FEB29; 

4 setup and format output string 

ree EOMVOUTPUTE RD 2 s ee 

#4 RE TORA 1s SER, 3 CONVOUTPUT, .DAYS, 3, MONTBLC.MONTH], .YEAR ); 

98 
699 END; ! routine 


4C SA 34 21 2D 44 41 21 2D 4C SA 32 21 00131 P.AAI: .ASCIT \!2ZL=!AD~!42L\ : 


mM 6 
DATECN 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Page 9 
v04-000 13-808 - 1382 95:12:90 MTAACP_SRCIDATECN.B32; ° (3) 
13 BLK 
9900000 B9145 P.AAH: .LONG 13 ; 
0000000' 00144 “ADDRESS P.AAI : 
CONVCONTROL= P.AAH 
003¢ 0000 .ENTRY CONVDATE_J2R, Save R2,R3,R4,R5 7 0590 
55 000000006 9F 9E O092 HOVAB «© @#LIBSCVT_DTB, RS : 
54 FEB cr 9—E 0000 MOV DAYTBL, R& : 
SE 0 000 SUBL2 #16, : 
FB AG 08 BC 06 01 CMPCS #6, @DATEANSIJ, ZERO_JDATE + 0640 
4 001 BNEQ ss : 
50 02 p 0019 MOVL #2, RO ; 
4 0001C RET 3 
52 08 AC 03 «C1 Bose 1$ ADDL3 #3, DATEANSIJ, JULADR 3: 0644 
4004 8F 6B 000 PUSHR  #*M<R2,SP> + 0648 
83 DD 000 g PUSHL # s 
65 : FB 00 CALLS #3, LIBSCVT_DTB : 
6F 0 E 0028 BLBC ~—=s_ RO, 7$ ; 
04 AE 9F 0002E PUSHAB YEAR + 0653 
7 3F 00031 PUSHAW -(JULADR) : 
02 DD 00033 PUSHL : 
65 0 FB 00035 CALLS #3, a ta 3 
62 50 £9 00038 BLBC = RO. 7$ : 
04 AE 0000076c BF CO 00058 ADDL2 #1900, YEAR + 0654 
50 D4 0004 CLRL : 0659 
03 04 AE 93 00045 BITS BYEAR, #3 : 
02 12 90049 BNEQ 2$ ; 
50 D6 00048 INCL RO F 
51 50 D0 9004p 2$ MOVL RO, LPYEAR ; 
50 04 00050 CLRL + 0660 
3c 6— D1 etd CMPL pays. #60 3 
02 12 0005 BNEQ $ : 
50 06 0057 INCL RO ; 
52 51 02 00059 3$ MCOML LPYEAR, FEB29 ; 
52 50 52 «CB 9905 BICL3 FEB29, RO, FEB29 F 
09 57 £9 0006 BLBC LPYEAR, 4$ : 0661 
3B 6 D1 0006 CMPL DAYS, #59 : 0663 
13 1B 90066 BLEQU 5$ ; 
6— 07 00 DECL _—+DAYS : 
OF 11 0006A BRB 5$ > 0661 
0000016E 8F 6— 01 006 4$: CMPL DAYS, #366 > 0665 
06 1 0 BNEQ ©5$ : 
04 AE OD 7 INCL YEAR : 0668 
E 01 D 07 MOVL #1, DAYS > 0669 
1 E D 7B 5$: MOVL DAYS, R1 3: 0674 
13 0007 BEQL 9$ ; 
0000016D =F 1 01 CMPL = R11, #365 : 
4C 1A BGTRU : 
50 01 0 9 MOVL #1, MONTH 3; 0678 
644 Ff C 6$: PUSHAW DAYTBLCMONTH) : 0682 
51 9E 10 FD F CMPZ7V #0, #16, a(SP)+, RI ; 
E 4 BGEQU 8$ ; 
D 36 INCL MONTH > 0683 
0D 5 pi 9 CMPL HONTH, #13 > 0684 
EF 1F 00098 BLSSU 6 ; 
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DATECN Sep- AxX-11 Bliss-32 V4.0-74 Page 10 
v04- 12: ~Sep- 1388 95:12 £99 MTAACP™ SRC tip DATECN.B32; ° (3S 
3 11 90 7$: RB 9$ g 
b? OF 8S: DECL MONTH : 0689 
3 644 | MOVZWL ree R3 ; 0690 
2 C A suet R3, R ; 
6E ¢ AB ADDL FEb29 R1, DAYS ; 
08 AE 08 00 A MOVL #11, CONVOUTPUT + 0694 
OC AE 04 AC D B OVL DATEREG CONVOUTPUT +4 3 0695 
4 AE DD 0008 PUSHL " 3 0696 
1A A&G DF 088 PUSHAL + abdicate 3 
03 0d 000BC PUSHL @# 3 
OC AE pp OOBE PUSHL DAYS 3 
18 AE F 000C1 PUSHAB CONVOUTPUT é 
7E D4 000C4 CLRL -(SP) ; 
0138 C4 OF 000C6 PUSHAB CONVCONTROL 3 
000000006 9F 07 FB OOOCA CALLS #7, @&#SYSS$FAO 3 
50 01 00 000D1 MOVL #1, RO 3 0697 
04 00004 RET 3 
50 04 00005 9$: CLRL RO : 0699 
04 00007 RET 3 
; Routine Size: 216 bytes, Routine Base: SCODE$ + 0148 
; 319 0700 1 
3 320 0701 1 END ! end module 
; 321 144 1 
; 322 0703 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 544 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Peat See Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.8 


; COMMAND QUALIFIERS 


DATECN bse ep-1984 02:15: AX-11_BLiss-32_V4.0-74 
PO4e 600 1e-Se0- 138s 95:13:99 = Hata ee SaeSpatetnso3004 
BLISS/CHECK= (FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DATECN/OBJ=0BJ$:DATECN MSRC$:DATECN/UPDATE=(ENH$:DATECN) 


711 
sonenee ai 16555 
Memor cy Ue 122 penne 
Compi sticn. Complete 


: 323 9796 0 

: oy 41 f : 127 data bytes 
: Elapsed. Tine: at 3° 

3: Lines/CPU Min: 
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